cr	equ	0Dh			;������� �������
lf	equ	0Ah			;������� ������
	org	100h
Start:	jmp	Begin
;	������ ���������
MyName	db	'Senkevich Aleksandr 12111111111111111111111111111111111111111111111111111111111111111111111111111111111111111', cr, lf, '444444444444444444444444444444444444444444444444444444444444444444444444444444444', cr, lf, '555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555$'	;������������ ����� ����� �����
;-----------------------------------------------------------------------
;
;	������� ���� ���������
;	-----------------------------------------
;
Begin:
;������������� �������� ������
	mov	al,0
	mov	dl,3
	mov	dh,2
	call	ScreenDriverInit	;������������� �������� ������
	call	Read_byte		;�������� ������� �������
;����� ������
	mov	si,0
.M1:	mov	al,[MyName + si]
	cmp	al,24h
	je	.M2
	call	CharacterOutput		;����� �������
	inc	si
	jmp	.M1	
.M2:	call	Read_byte		;�������� ������� �������
;��������������� �������� ������
	mov	al,1
	call	ScreenDriverInit	;��������������� �������� ������
	call	Read_byte		;�������� ������� �������
;�����
.Exit:	mov	ax,4c00h
	int	21h			;������� � DOS
;
;	��������� ��� ������� � ����������
;	----------------------------------
; �����: AL - ��� ASCII ������� (0 - ����������� ������)
;	 AH - ����-��� �������
;
Read_byte:
	push	ax
	mov	ah,0			;���� �������
	int	16h			; ��� ���
	pop	ax
	ret
%include	'ScrDriv.asm'